home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
ls 10
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
44 lines
50 REM ZUSAMMENGESETZTES SPRITE
60 REM
70 REM SPRITEDATEN
100 FOR N=8192 TO 8254:READ Q:POKE N,Q:NEXT
101 DATA 0,60,0,0,255,0,3,255,0
102 DATA 3,213,0,3,209,64,3,85,64
103 DATA 3,215,0,3,221,0,0,213,0
104 DATA 0,84,0,0,148,0,0,168,0
105 DATA 0,168,0,2,170,0,2,138,0
106 DATA 2,138,128,10,42,128,10,42,128
107 DATA 10,42,128,10,42,128,10,42,128
108 REM ******************************
200 FOR N=8256 TO 8318:READ Q:POKE N,Q:NEXT
201 DATA 5,170,128,5,106,128,1,106,0
202 DATA 2,170,0,2,170,128,2,170,128
203 DATA 2,171,128,2,171,128,2,171,128
204 DATA 2,171,128,2,170,128,2,170,0
205 DATA 2,168,0,14,168,0,62,168,0
206 DATA 62,168,0,15,255,0,3,255,192
207 DATA 3,255,192,0,0,0,0,0,0
208 REM ******************************
300 REM PROGRAMMSTART
310 REM
320 REM VORBEREITUNGEN
330 REM
340 REM FARBEN
350 POKE53280,5:POKE53281,0
360 POKE53285,8:POKE53286,11:POKE53287,7:POKE53288,9
370 REM
380 POKE53276,3:REM SPRITE 0 + 1 MULTICOLOR
390 X0=53248:Y0=53249
400 X1=53250:Y1=53251
410 XP=160:YP=120
415 REM
416 POKE2040,128:POKE2041,129:REM SPRITEZEIGER 0 + 1 SETZEN
420 REM
430 REM POSITIONIEREN
440 REM
450 POKEX0,XP:POKEY0,YP
460 POKEX1,XP:POKEY1,YP+21
470 REM
480 POKE53269,3:REM SPRITE 0 + 1 AN
490 END